#!/usr/bin/perl

our $team = shift;

p("I`m just debugging program hello!\n");

for (1..5)
{
    p("Captured flag: $_ :)\n");
    $team =~ /^\d+\.(\d+)/;
    p("Sleeping $1\n");
    sleep $1;
}
exit(0);

sub p
{
    print "$team : " . shift;
}